home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / lang / PPCsmalltalk.lha / PPCSmallTalk / prelude / standard < prev    next >
Text File  |  1986-10-19  |  53KB  |  2,056 lines
  1. temp <- <primitive 110 10 >
  2. <primitive 112 temp 1        " view " \
  3.     #( #[ 32 250 1 156 242 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " variables " \
  7.     #( #[ 32 250 1 158 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " superClass " \
  11.     #( #[ 32 250 1 151 243 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 112 temp 4        " respondsTo: " \
  15.     #( #[ 32 114 34 162 247 18 34 33 250 2 155 247 2 91 243 \
  16.  242 34 10 46 241 114 242 249 22 242 92 243 245] \
  17.     #(  ) ) >
  18.  
  19. <primitive 112 temp 5        " respondsTo " \
  20.     #( #[ 32 250 1 154 242 245] \
  21.     #(  ) ) >
  22.  
  23. <primitive 112 temp 6        " printString " \
  24.     #( #[ 32 250 1 152 243 245] \
  25.     #(  ) ) >
  26.  
  27. <primitive 112 temp 7        " new: " \
  28.     #( #[ 32 250 1 151 114 34 250 1 3 247 4 34 160 241 115 \
  29.  242 32 35 250 2 153 115 32 48 250 2 155 247 5 35 \
  30.  33 176 241 115 242 35 243 245] \
  31.     #( #new:  ) ) >
  32.  
  33. <primitive 112 temp 8        " new " \
  34.     #( #[ 32 250 1 151 113 33 250 1 3 247 4 33 160 241 114 \
  35.  242 32 34 250 2 153 114 32 48 250 2 155 247 4 34 \
  36.  160 241 114 242 34 243 245] \
  37.     #( #new  ) ) >
  38.  
  39. <primitive 112 temp 9        " list " \
  40.     #( #[ 32 250 1 157 242 245] \
  41.     #(  ) ) >
  42.  
  43. <primitive 112 temp 10        " edit " \
  44.     #( #[ 32 250 1 150 242 245] \
  45.     #(  ) ) >
  46.  
  47. <primitive 98 #Class \
  48.     <primitive 97 #Class #Object #Smalltalk:prelude/class.st \
  49.     #(  ) \
  50.     #( #view #variables #superClass #respondsTo: #respondsTo #printString #new: #new #list #edit  ) \
  51.     temp 4 4 > >
  52.  
  53. temp <- <primitive 110 21 >
  54. <primitive 112 temp 1        " shallowCopy " \
  55.     #( #[ 32 250 1 4 113 33 80 199 247 4 32 243 248 26 242 \
  56.  32 164 160 114 81 33 178 225 3 11 34 35 32 35 250 \
  57.  2 111 250 3 112 243 179 242 34 243 242 245] \
  58.     #(  ) ) >
  59.  
  60. <primitive 112 temp 2        " respondsTo: " \
  61.     #( #[ 32 164 33 11 41 243 245] \
  62.     #(  ) ) >
  63.  
  64. <primitive 112 temp 3        " printString " \
  65.     #( #[ 32 10 16 243 245] \
  66.     #(  ) ) >
  67.  
  68. <primitive 112 temp 4        " print " \
  69.     #( #[ 32 169 250 1 121 242 245] \
  70.     #(  ) ) >
  71.  
  72. <primitive 112 temp 5        " notNil " \
  73.     #( #[ 91 243 245] \
  74.     #(  ) ) >
  75.  
  76. <primitive 112 temp 6        " next " \
  77.     #( #[ 93 243 245] \
  78.     #(  ) ) >
  79.  
  80. <primitive 112 temp 7        " isNil " \
  81.     #( #[ 92 243 245] \
  82.     #(  ) ) >
  83.  
  84. <primitive 112 temp 8        " isMemberOf: " \
  85.     #( #[ 33 32 164 181 243 245] \
  86.     #(  ) ) >
  87.  
  88. <primitive 112 temp 9        " isKindOf: " \
  89.     #( #[ 32 164 114 34 162 247 16 34 33 181 247 2 91 243 242 \
  90.  34 10 46 241 114 242 249 20 242 92 243 245] \
  91.     #(  ) ) >
  92.  
  93. <primitive 112 temp 10        " first " \
  94.     #( #[ 32 243 245] \
  95.     #(  ) ) >
  96.  
  97. <primitive 112 temp 11        " error: " \
  98.     #( #[ 33 32 250 2 122 242 245] \
  99.     #(  ) ) >
  100.  
  101. <primitive 112 temp 12        " do: " \
  102.     #( #[ 32 166 114 34 162 247 11 33 34 180 242 32 167 241 114 \
  103.  242 249 15 243 245] \
  104.     #(  ) ) >
  105.  
  106. <primitive 112 temp 13        " deepCopy " \
  107.     #( #[ 32 250 1 4 113 33 80 199 247 4 32 243 248 28 242 \
  108.  32 164 160 114 81 33 178 225 3 13 34 35 32 35 250 \
  109.  2 111 10 20 250 3 112 243 179 242 34 243 242 245] \
  110.     #(  ) ) >
  111.  
  112. <primitive 112 temp 14        " copy " \
  113.     #( #[ 32 10 42 243 245] \
  114.     #(  ) ) >
  115.  
  116. <primitive 112 temp 15        " class " \
  117.     #( #[ 32 250 1 1 243 245] \
  118.     #(  ) ) >
  119.  
  120. <primitive 112 temp 16        " asSymbol " \
  121.     #( #[ 32 10 16 10 17 243 245] \
  122.     #(  ) ) >
  123.  
  124. <primitive 112 temp 17        " asString " \
  125.     #( #[ 32 164 169 243 245] \
  126.     #(  ) ) >
  127.  
  128. <primitive 112 temp 18        " ~= " \
  129.     #( #[ 32 33 201 172 243 245] \
  130.     #(  ) ) >
  131.  
  132. <primitive 112 temp 19        " = " \
  133.     #( #[ 32 33 181 243 245] \
  134.     #(  ) ) >
  135.  
  136. <primitive 112 temp 20        " ~~ " \
  137.     #( #[ 32 33 181 172 243 245] \
  138.     #(  ) ) >
  139.  
  140. <primitive 112 temp 21        " == " \
  141.     #( #[ 32 33 250 2 7 243 245] \
  142.     #(  ) ) >
  143.  
  144. <primitive 98 #Object \
  145.     <primitive 97 #Object #Object #Smalltalk:prelude/object.st \
  146.     #(  ) \
  147.     #( #shallowCopy #respondsTo: #printString #print #notNil #next #isNil #isMemberOf: #isKindOf: #first #error: #do: #deepCopy #copy #class #asSymbol #asString #~= #= #~~ #==  ) \
  148.     temp 4 7 > >
  149.  
  150. temp <- <primitive 110 19 >
  151. <primitive 112 temp 1        " sameAs: " \
  152.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 102 248 4 242 \
  153.  32 10 19 243 245] \
  154.     #(  ) ) >
  155.  
  156. <primitive 112 temp 2        " size " \
  157.     #( #[ 32 250 1 100 243 245] \
  158.     #(  ) ) >
  159.  
  160. <primitive 112 temp 3        " print " \
  161.     #( #[ 32 250 1 121 242 245] \
  162.     #(  ) ) >
  163.  
  164. <primitive 112 temp 4        " printString " \
  165.     #( #[ 32 250 1 109 243 245] \
  166.     #(  ) ) >
  167.  
  168. <primitive 112 temp 5        " printAt: " \
  169.     #( #[ 32 33 10 49 33 10 50 250 3 126 242 245] \
  170.     #(  ) ) >
  171.  
  172. <primitive 112 temp 6        " new: " \
  173.     #( #[ 33 250 1 115 243 245] \
  174.     #(  ) ) >
  175.  
  176. <primitive 112 temp 7        " deepCopy " \
  177.     #( #[ 32 250 1 107 243 245] \
  178.     #(  ) ) >
  179.  
  180. <primitive 112 temp 8        " copyFrom:length: " \
  181.     #( #[ 32 33 34 250 3 106 243 245] \
  182.     #(  ) ) >
  183.  
  184. <primitive 112 temp 9        " copyFrom:to: " \
  185.     #( #[ 32 33 34 33 193 81 192 250 3 106 243 245] \
  186.     #(  ) ) >
  187.  
  188. <primitive 112 temp 10        " compareError " \
  189.     #( #[ 32 48 188 243 245] \
  190.     #( 'strings can only be compared to strings'  ) ) >
  191.  
  192. <primitive 112 temp 11        " at:put: " \
  193.     #( #[ 32 33 34 250 3 105 242 245] \
  194.     #(  ) ) >
  195.  
  196. <primitive 112 temp 12        " at: " \
  197.     #( #[ 32 33 250 2 104 243 245] \
  198.     #(  ) ) >
  199.  
  200. <primitive 112 temp 13        " asSymbol " \
  201.     #( #[ 32 250 1 108 243 245] \
  202.     #(  ) ) >
  203.  
  204. <primitive 112 temp 14        " > " \
  205.     #( #[ 32 33 250 2 6 247 9 32 33 250 2 101 80 204 248 \
  206.  4 242 32 10 19 243 245] \
  207.     #(  ) ) >
  208.  
  209. <primitive 112 temp 15        " >= " \
  210.     #( #[ 32 33 250 2 6 247 9 32 33 250 2 101 80 203 248 \
  211.  4 242 32 10 19 243 245] \
  212.     #(  ) ) >
  213.  
  214. <primitive 112 temp 16        " <= " \
  215.     #( #[ 32 33 250 2 6 247 9 32 33 250 2 101 80 200 248 \
  216.  4 242 32 10 19 243 245] \
  217.     #(  ) ) >
  218.  
  219. <primitive 112 temp 17        " < " \
  220.     #( #[ 32 33 250 2 6 247 9 32 33 250 2 101 80 199 248 \
  221.  4 242 32 10 19 243 245] \
  222.     #(  ) ) >
  223.  
  224. <primitive 112 temp 18        " = " \
  225.     #( #[ 32 33 250 2 6 247 9 32 33 250 2 101 80 201 248 \
  226.  4 242 32 10 19 243 245] \
  227.     #(  ) ) >
  228.  
  229. <primitive 112 temp 19        " , " \
  230.     #( #[ 32 32 33 250 2 6 247 3 33 248 3 242 33 169 250 \
  231.  2 103 243 245] \
  232.     #(  ) ) >
  233.  
  234. <primitive 98 #String \
  235.     <primitive 97 #String #ArrayedCollection #Smalltalk:prelude/string.st \
  236.     #(  ) \
  237.     #( #sameAs: #size #print #printString #printAt: #new: #deepCopy #copyFrom:length: #copyFrom:to: #compareError #at:put: #at: #asSymbol #> #>= #<= #< #= #,  ) \
  238.     temp 3 5 > >
  239.  
  240. temp <- <primitive 110 1 >
  241. <primitive 112 temp 1        " nothing " \
  242.     #( #[ 81 242 245] \
  243.     #(  ) ) >
  244.  
  245. <primitive 98 #ArrayedCollection \
  246.     <primitive 97 #ArrayedCollection #Object #Smalltalk:prelude/larray.st \
  247.     #(  ) \
  248.     #( #nothing  ) \
  249.     temp 1 2 > >
  250.  
  251. temp <- <primitive 110 3 >
  252. <primitive 112 temp 1        " printString " \
  253.     #( #[ 48 243 245] \
  254.     #( 'nil'  ) ) >
  255.  
  256. <primitive 112 temp 2        " notNil " \
  257.     #( #[ 92 243 245] \
  258.     #(  ) ) >
  259.  
  260. <primitive 112 temp 3        " isNil " \
  261.     #( #[ 91 243 245] \
  262.     #(  ) ) >
  263.  
  264. <primitive 98 #UndefinedObject \
  265.     <primitive 97 #UndefinedObject #Object #Smalltalk:prelude/nil.st \
  266.     #(  ) \
  267.     #( #printString #notNil #isNil  ) \
  268.     temp 1 2 > >
  269.  
  270. temp <- <primitive 110 6 >
  271. <primitive 112 temp 1        " size " \
  272.     #( #[ 32 250 1 4 243 245] \
  273.     #(  ) ) >
  274.  
  275. <primitive 112 temp 2        " printString " \
  276.     #( #[ 48 113 32 250 1 4 114 34 80 204 247 21 32 34 250 \
  277.  2 111 169 49 11 17 33 11 17 113 34 81 193 241 114 \
  278.  242 249 26 242 50 33 11 17 243 245] \
  279.     #( ')' ' ' '#( '  ) ) >
  280.  
  281. <primitive 112 temp 3        " grow: " \
  282.     #( #[ 32 33 250 2 113 243 245] \
  283.     #(  ) ) >
  284.  
  285. <primitive 112 temp 4        " at:put: " \
  286.     #( #[ 33 81 199 251 6 33 32 250 1 4 204 247 6 32 48 \
  287.  188 242 93 243 242 32 33 34 250 3 112 242 34 243 245 \
  288. ] \
  289.     #( 'index error'  ) ) >
  290.  
  291. <primitive 112 temp 5        " at: " \
  292.     #( #[ 33 81 199 251 6 33 32 250 1 4 204 247 6 32 48 \
  293.  188 242 93 243 242 32 33 250 2 111 243 245] \
  294.     #( 'index error'  ) ) >
  295.  
  296. <primitive 112 temp 6        " new: " \
  297.     #( #[ 33 250 1 114 243 245] \
  298.     #(  ) ) >
  299.  
  300. <primitive 98 #Array \
  301.     <primitive 97 #Array #ArrayedCollection #Smalltalk:prelude/array.st \
  302.     #(  ) \
  303.     #( #size #printString #grow: #at:put: #at: #new:  ) \
  304.     temp 3 4 > >
  305.  
  306. temp <- <primitive 110 6 >
  307. <primitive 112 temp 1        " xor: " \
  308.     #( #[ 32 33 182 243 245] \
  309.     #(  ) ) >
  310.  
  311. <primitive 112 temp 2        " eqv: " \
  312.     #( #[ 32 33 181 243 245] \
  313.     #(  ) ) >
  314.  
  315. <primitive 112 temp 3        " or: " \
  316.     #( #[ 32 251 2 33 165 243 245] \
  317.     #(  ) ) >
  318.  
  319. <primitive 112 temp 4        " and: " \
  320.     #( #[ 32 252 2 33 165 243 245] \
  321.     #(  ) ) >
  322.  
  323. <primitive 112 temp 5        " | " \
  324.     #( #[ 32 251 1 33 243 245] \
  325.     #(  ) ) >
  326.  
  327. <primitive 112 temp 6        " & " \
  328.     #( #[ 32 252 1 33 243 245] \
  329.     #(  ) ) >
  330.  
  331. <primitive 98 #Boolean \
  332.     <primitive 97 #Boolean #Object #Smalltalk:prelude/boolean.st \
  333.     #(  ) \
  334.     #( #xor: #eqv: #or: #an